* net/socks.el (socks-nslookup-host): Use string-to-number.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7c600ca7e6fcd86a60d7d65a4b9450038e3d57b6..8e94ec321471b402a6f6ec5f25d25759dc31ea22 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-01-25  Dmitry Antipov  <dmantipov@yandex.ru>
+
+       * net/socks.el (socks-nslookup-host): Use string-to-number.
+
 2013-01-25  Michael Albinus  <michael.albinus@gmx.de>
 
        * autorevert.el (auto-revert-remote-files)

diff --git a/lisp/net/socks.el b/lisp/net/socks.el
index 75b0ebe55ffe549dabc3cbddaa0c441b2d1f7405..415397c4171646786198520dcc8235a83dcd4289 100644 (file)
--- a/lisp/net/socks.el
+++ b/lisp/net/socks.el
@@ -648,7 +648,7 @@ version.")
              (progn
                (setq res (buffer-substring (match-beginning 2)
                                            (match-end 2))
-                     res (mapcar 'string-to-int (split-string res "\\.")))))
+                     res (mapcar 'string-to-number (split-string res "\\.")))))
          (kill-buffer (current-buffer)))
        res)
     host))